home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / SCSI Samples 1.0 / SCSI Inquiry Samples ƒ / SCSI Inquiry (Simple) 06⁄07 ƒ / Src / SCSIInquiry.r < prev   
Encoding:
Text File  |  1994-06-16  |  1.4 KB  |  81 lines  |  [TEXT/KAHL]
  1. /*                                        SCSIInquiry.r                                */
  2. /*
  3.  * SCSIInquiry.r
  4.  * Copyright © 1994 Apple Computer Inc. All rights reserved.
  5.  */
  6. #define REZ
  7. #include "Types.r"
  8. #include "SysTypes.r"
  9. #include "SCSIInquiry.h"
  10.  
  11. #ifdef __powerc
  12. /*
  13.  * All Power PC applications need a code-fragment resource that the code
  14.  * fragment manager uses to facilitate dynamic fragment binding.
  15.  */
  16. #include "CodeFragmentTypes.r"
  17.     
  18. resource 'cfrg' (0) {
  19.     {
  20.         kPowerPC,
  21.         kFullLib,
  22.         kNoVersionNum,
  23.         kNoVersionNum,
  24.         kDefaultStackSize,
  25.         kNoAppSubFolder,
  26.         kIsApp,
  27.         kOnDiskFlat,
  28.         kZeroOffset,
  29.         kWholeFork,
  30.         "SCSIDriveIDSample"
  31.     }
  32. };
  33. #endif
  34.  
  35. resource 'ALRT' (ALRT_Info, "Inquiry Info", purgeable) {
  36.     {100, 80, 210, 440},
  37.     ALRT_Info,
  38.     {
  39.         OK, visible, silent,
  40.         OK, visible, silent,
  41.         OK, visible, silent,
  42.         OK, visible, silent
  43.     }
  44. };
  45.  
  46. resource 'DITL' (ALRT_Info, "Inquiry Info", purgeable) {
  47.     {
  48.         { 80, 280, 100, 340}, Button        { enabled,    "OK"                        },
  49.         { 10,  70,  70, 350}, StaticText    { disabled,
  50.                 "Inquiry Length: ^0\n"
  51.                 "Vendor: “^1”\n"
  52.                 "Product: “^2”\n"
  53.                 "Revision: “^3”"
  54.             },
  55.     }
  56. };
  57.  
  58. resource 'ALRT' (ALRT_Error, "Error", purgeable) {
  59.     {100, 80, 210, 440},
  60.     ALRT_Error,
  61.     {
  62.         OK, visible, silent,
  63.         OK, visible, silent,
  64.         OK, visible, silent,
  65.         OK, visible, silent
  66.     }
  67. };
  68.  
  69. resource 'DITL' (ALRT_Error, "Error", purgeable) {
  70.     {
  71.         { 80, 280, 100, 340}, Button        { enabled,    "OK"                        },
  72.         { 10,  70,  70, 350}, StaticText    { disabled,
  73.                 "System Error ^0.\n"
  74.                 "Processing SCSI Command."
  75.             },
  76.     }
  77. };
  78.  
  79.  
  80.  
  81.